Sub Xe[^Xo[Ƀf[^\()

    ' Xe[^Xo[\
    Application.DisplayStatusBar = True
    ' bZ[Wݒ
    Application.StatusBar = "Ał... ΂炭҂"
    
    ' [Iȑ҂
    Application.Wait [Now() + "00:00:10"]
    
    ' ŌɕK Excel ɖ߂
    Application.StatusBar = False
End Sub